home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / transdat.sha < prev    next >
Text File  |  1994-03-01  |  666b  |  22 lines
  1.  1 REM *******************************
  2.  2 REM * CASIO DATENBANK šBERTRAGUNG *
  3.  3 REM *                             *
  4.  4 REM * (C) YELLOW COMPUTING 1988   *
  5.  5 REM ******************************* 
  6. 10 CLEAR
  7. 11 OPEN"COM0:4,E,8,1,N,N,N,N,N" AS#1
  8. 12 ON ERROR GOTO 150
  9. 13 RESTORE#
  10. 18 CLS
  11. 19 PRINT" TRANSFILE ST FX-850P DATENBANK ";
  12. 20 INPUT" (S) SPEICHERN   (L) LADEN ";A$
  13. 30 IFA$="S"THEN GOTO 200 
  14. 40 IFA$="L"THEN GOTO 300 ELSE 19
  15. 100 REM*******************************
  16. 150 IF ERR=22 THEN PRINT "DIE DATENBANK IST UEBERTRAGEN   ":END
  17. 160 PRINT "ERROR Nr.= ";ERR
  18. 170 END
  19. 200 READ# A$:PRINT #1,A$:GOTO 200
  20. 300 INPUT #1,A$:WRITE# A$:PRINTA$;: GOTO 300
  21.  
  22.